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pout DBGTBK ( IDENT = ‘v04-000") = 
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ie 

ie COPYRIGHT (c) 1978 1380. 1982, 1984 BY 

ie DIGITAL EQUIPMENT forPORA TION, "MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie re hb eye IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACC E WITH THE 


:@ ORDANCE WITH TH $ SUCH LICENSE AND WITH THE 
t# INCLUSION THE ABOVE COPYRIGHT NOTICE. THIS SOFTWAR H 
:* COPIES THEREOF - OT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 

® 

2 

* 

® 

we 

® 

¥ 

} E e 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. e 
4 ® 
te THE ype IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

ie 

® 

® 

® 

® 


Ic 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!# CORPORATION. 
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3 1 

3 1 

; 1 

3 1 

; 1 

3 8 1 

3 1 

i % 0 1 

es 0 1 

a 2 0 1 

ray 0 1 

ce 5 0 1 

= 0 1 

3 F 0 1 

ae 0 1 

es 00 1 

Py 0020 1 i 

Py .* 

$ 8 1 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

; 09 § 1 © SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

3 es 

3 024 1 !# 

4 89 5 1; PITTITITILITILILIL LIT LILLLLLL LTT i iii litiiiiiii iii. 

3 00 § 1/ MODULE Re gh ll 

; 80 8 1! This module contains the routines that implement the SHOW CALLS 

3 029 1! command. These routines give a traceback from the program location 

3 Bo30 : where the user is currently stopped. 

; 14 ' AUTHOR: Carol Peters, CREATION DATE: September 20, 1977 

3 0034 1 | MODIFIED BY: 

3 0035 1: Mike Candela, #6 genuery., 1980 

3 Boss ! V. Holt, 14 May 1 

3 Boe 1 / 1.01 a se MCC Deleted require file SYSLIT 

; 39 111.02 9-0CT-7 MCC Traceback got hy 2 corrected to terminate when 
3 4 0040 1 i current FP = addr DBGSF INAL a (bug-fix) 
om 041 1! 1.03 02-Nov-78 DAR Removed check for eon TRAN MODULE f gn dbgstraceback. 
‘ae ¢ 1 Also put in explicit field t ww hy into FAO strings. 
yee 043 1: 1.96 3-NOV-78 DAR Traceback also stops if the = is DBGSPSEUDO_PROG 
3 Boee 1! 1-32 gay tad JBD Put in statement number supp 

: 045 1! 1.06 -JAN-80 MCC Fixed out_traceback to correctly format 31 

3 ? ze : routine and module names for SHOW CALLS 

; 48 ‘4 4 1 ' 1.07 19-apr-80 ala Sdter additional parameter to output routines 

:; 49 049 1: to allow eceess w output buffer’s address 

; + 50 1! 38.0 01-Mar-82 PS When dbg$val_t ® corresponds pc to rstptr, 

ae 051 1: check to see “ite t is is a data gyabol before 

3 38 03g } seer h for the surrounding routine and module 

; entries. 

: 4 54 1! 38.0 27-Apr-82 PS Display the module name when SHOW CALL even if 
; g i 5 ane eae VH — hdded coll to DOGSFLUSHBUF, etiminati dt 
; ‘ -May- e ° eliminating need to 
: 3$ O37 1 i J face Lit: local output buffer. ° 
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; } 38.2 3-Jun-82 VJH 
i 
61 ‘ 
o¢ 38.2 16-Nov-82 PS 
a i 
65 ' 
38.2 27-Dec-82 BB 


LIBRARY ‘LIB$:DBGGEN.L32'; 


FORWARD ROUTINE 
DBGSTRACEBACK: NOVALUE, 


FIND_MODRST, 
OUT_TRACEBACK: NOVALUE; 


es a a 8 SS = = SS 
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REQUIRE *SRC$:DBGPROLOG.REQ'; 
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ved all references to DBGSFAO_PUT — 
GSOUT_PUT, as these are now obsolet 
init them with calls to DBG PRINTS and 
rors respect aX 
~ a gerne: clean up. (We oivers $s print module 
name from the SAT look up for the current pc. 
We mark the set module. We print JSB message. 
We print EXC message.) 
Clean up style and other minor things. 


' Traces calls through the stack and 

, enerates the SHOW CALLS output 
! Find the module RST pointer for a PC 
‘ rom the Program SAT 
' Output a single Line of traceback 
! information 


-—— 


iBeseoctane 03:44:53 yA 


-11 Bliss-32 V 3 
ER: 


x 
Ar SUMCMASTERSCbeBuG. SkCIDBGTEK.83204°" ( 


: 1 13. 1 EXTERNAL ROUTIN 

: § iz 1 — 8G FINAL ANDL, ' Call frame exception handler 

; 15 1 GSPC_TO_LINE LOOKUP, ' Translates a PC to a Line number 

; 4 16 1 SPRINT”: NOVALUE, ' Format output Lines. 

3 5 7 3 cane ile NE : a ee } lush ovt ut | nes. 

; 5 15 DBGESTASY ANE: NOVALUE, i get's whel's hans” 

: 8 0 1 1? ! Transietes a value to an RST pointer. 
; 4 ys GETM Se3 ! Get the message text for a condition 
: 91 1 

3 3 4 1 a eOBCSPSEUDO EXIT ' Point to which sl returns 

; #9 5 1 DBGSRUNF RARE : BLOCKL, BYTE), ' The current register runframe 

3; (9G 0226 1 SATSSTARI ADDR; ! Starting address of Program SAT 
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FUNCT 


INPUT 
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1§-se0-1964 9 +0823 VAX-11 Bliss-32 V4.0-742 


ROUTINE DBGSTRACEBACK(INITIAL_PC, FP_POINTER 
EXCEPTION_NAME, NUM_LEVELS): NOVALUE = 


ION 

This routine collects the symbolic sntermey ton describing each 
stack frame starting at the stack frame ge nted to by the user's 
FP, and proceeding through the frame with which the user program 
was called by CLI, by the OTS, or by DEBUG. 


Once the symbolic information for a frame is collected, a routine 
is called to output this information to DBGSOUTPUT. 


The num_levels parameter is either -1, or it is the 

number of call frames which the uses has specifically 
requested (via SHOW CALLS N). 
S 

INITIAL_PC - PC of user program when traceback occurs 
FP_POINTER - FP of user program when traceback occurs 


EXCEPTION_NAME = Type of exception where: 
1- gree. tyge exception 


L 
MSG-DESCR: DAGS$STG_DESC, 
MSGCEN: WORD, 


MSG_STRING: 
VECTORCMAX STRING SIZE. 
NEXT_FP: REF BLOCKE,BYTE)? 


! String descriptor for message text 
! The Length of the message text 
1g message text buffer 


2 - fault or abort type exception 
NUM_LEVELS - The number of frames the user wants to see, 
or -1 which implies ‘show them all’. 
OUTPUTS 
NONE 
BEGIN 
BUILTIN 
PROBER; ' Probe for read access to a location 
LITERAL 
MAX_STRING_SIZE = 256; 1 277 
LOCAL 
CALL_FLAG, ! Flag to indicate the call is from 
‘ JSB or BSB 
CURRENT _FP : REF BLOCKC,BYTE), ! Value of FP of working stack frame 
CURRENT PC, ' Current PC in writable variable 
EXC_TYPE, ' Type of exception 
J ' Index value used for several purposes 
LINE_NUMBER, i Matching Line number 
DNAME ' Pointer to module's name 
MOD_RSTPTR: REF RSTSENTRY, ' Pointer to RST entry for outermost scope 
MOD_SET_FLAG } AY to ndicate that module is SET 
n 
8 
' 


BYTE 
; FF 
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2-000 12280871382 95:95:33 DISKSVMSMASTER: (DEBUG. SRCIDBGTBK.B32; 1° (3) 

153 4 REGMASK: BITVECTORC16) : the register save mask bit vector 
154 5 REGSAVELOC: REF VECTORC,LONG], | Pointer to the register save area in 
155 § ; the current call frame 

1 $ RTN_RSTPTR: REF RSTSENTRY ! Pointer to RST entry for routine 

1 3 SAVED_RUNFRAME: REF BLocke BYTE)! Pointer to saved runframe from the 
138 ; DEBUG CALL command 

159 90 SIG. VECTOR: REF VECTORE -LONGI. ! Pointer to the Signal Argument Vector 
160 91 SPVALUE: REF VECTORS LONGI, ! The value of SP in the current frame 
161 36 SYM DSTPTR: REF DSTSRECORD, | Pointer to corresponding DST entry 
166 9 SY ! Pointer to symbols name 

16 94 SYM_RSTPTR: REF RSTSENTRY, ! Pointer to RST entry from VAL_TO_SYM 
164 95 STARTING _PC, ! PC of start of routine or module 

165 9 START_PC, ! 27? 

198 7 END _PC, ! 22? 

16 98 STMT_NUMBER; ! Matching statement number 

168 99 

we 

171 4 ! If the user doesn't want to see any frames just return. Otherwise check 
\7¢ tH ! that some call frames are active, get values of PC and FP to use, and 
Wi Be } set up the exception type. 

175 0306 IF .NUM_LEVELS EQL 0 THEN RETURN; 

176 030 IF .INITIAL_PC EQL 0 THEN SIGNAL (DBG$_NOCALLS); 

176 0309 

179 10 ! Initialization. 

180 11 : 

181 0 \¢ NEXT FP = .FP_POINTER; 

18 031 CURRENT PC = TINITIAL_PC; 

18 0314 EXC_TYPE = .EXCEPTION_NAME; 

184 0315 CALC_FLAG = FALSE; 

185 o318 SAVEB_RUNFRAME = .DBGSRUNFRAMECDBGSL_NEXT_LINK); 

187 0318 

138 3384 } Print the SHOW CALLS header. 

190 83 1 DBGSPRINT(UPLIT BYTE (ZASCIC 

191 3 § * module name routine name Line rel PC abs PC!/")); 
138 DBGSNEWL INE (); 

194 $ 

195 § ! The following loop translates the current PC into a routine name and then 
1 ! prints the name of the surrounding module, the name of the routine, the 
19 8 ! Line number, and the relative and absolute PC values for each user stack 
133 4 frame. 
5 1 INCR oer re FROM 0 TO MINU(.NUM_LEVELS, 1000) - 1 DO 
54 5 If PROBER(ZREF(O), ZREF (20), NEXT_FPCSFSA_HANDLER]) EQL 0 
0 4 THEN 
04 5 4 BEGIN 
05 $ & SIGNAL (DBG$_BADSTACK); 
88 4 RETURN; 

3 END; 

08 
09 40 
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yO. -000 Wea een IRs PSF8s eb intlSfeaccheae Skcapecrex.e3203°" 34 
; ! Stop if the exception handler address points to DEBUG's final handler. 
This indicates that we have reached the end of the call stack. 


F .NEXT_FPCSFSA_HANDLER] EQL DBGS$FINAL_HANDL THEN RETURN; 


! Abort the SHOW CALLS processing if the user entered Control-¥ DEBUG 
to stop the current command. 


SABORT_ON_CONTROL_Y; 


Check to see if this is an exception pangter. (A handler is recess 
nized by moving @ return PC of hex 80000014, which is where the. VAS 
exception handling mechanism calls user handlers.) If it is an 
exception handler, we must get the exception PC from the signal 
argon: list. The location of this List is computed from the stack 
pointer value. 


Sg ON PR EQL %x°80000014") AND (.DEPTH NEQ 0) 
BEGIN 


we eT eee 
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Pass the saved registers in this call frame. 


REGMASK = .CURRENT_FPCSF$W_SAVE MASK); 
REGSAVELOC = CURRENT_FPCSFSi_SAVE_REGS); 


J=0 

INCR | FROM 0 TO 11 DO 

IF .REGMASKC.1) THEN J = .J ¢+ 1; 
END: 


uw 


Wn Oo 0@n~n 
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' Set the stack pointer points at the end of the saved registers. 
Adjust it by the offset values. 


SPVALUE = REGSAVELOCL.J); 
SPVALUE = .SPVALUE + .CURRENT_FPCSFSV_STACKOFFS); 


Sat et heh ee 


Ww 
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Pass one longword of junk and the argument count. 
SPVALUE = .SPVALUE + 8; 
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! Get the pointer to the signal argument List. Pick up the PC of 

' the signal from the signal argument List. Then print the Line 

! identi ying this routine as a condition handler and the Line that 
, displays the message text that identifies the signalled condition. 
9 SIG_VECTOR = sSPYALUECO); 
94 J = .$1G_VECTOR(O); 
95 CURRENT PC = .SIG_VECTORE.J = 1); 
36 DBGSPRIAT(UPLIT BYTE(ZASCIC : 
9 *ewem= above condition handler called with exception !xXL"), 
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5$16 vECTORC1}); 

DBGSPR NTCUPLIT BYTE(ZASCIC ':")); 

DBGSN Hitt 

MSG_DESCR bsthu_LENGT Ws = MAX STRING, SIZE; 

MSG DESCRLDSCSA_POINTE ER} = mSG_S 

SYSSGETMS (S1GIVECTOR ye x al My HF _DESCR, 0, 0); 

MSG_DESCRLDSC Wi NGT LEN: 

DBGSPRINT (UPLIT BYTE (ZA e--e= !AS"), MSG_DESCR); 

DBGSNEWLINE(); 


! Check to gee if the CURRENT _PC is caused by the DEBUG CALL command. 
! If so, print the Line that Indicates this and pick up the actual 
; user PC value from the saved run-frame for this CALL command. 


if; CURRENT _PC EQL DBGSPSEUDO_EXIT 


CURRENT_PC = .SAVED RUNE RAMELDBGSL _USER_PC); 
DBGSPRIAT(UPLIT BYTE(ZASC 

tances gneve the mg Seehaa from DEBUG CALL command')); 
DBGSNEUL INE 
SAV Lr hand = . SAVED_RUNFRAMECDBGSL_NEXT_LINK); 
E EXC. corre. = FAULT WEXC; 


! Obtain the name of the innermost routine that surrounds the address. 
i If there is no such routine in the RST, find out what module it is 
n and print only the module name (if any) and the absolute PC value. 
if NOT DBGSPC_TO_SYMID(.CURRENT_PC, SYM_RSTPTR, TRUE) 

BEGIN 

MODNAME = 

MOD_SET fF LRG 


D"RSTPTR = FIND LA bRSTC. CURRENT_PC); 
iF mod. RSTPTR NEG 0 


DaCESTA_ SYRNARE (. MOD_RSTPTR, MODNAME) 
0 SET. “FLAG = .MOD_RSTPTRCRSTS$V "MODSET); 


OUr TRACEBACK (,MODNAME, 0, 0, 0, 0, .CURRENT_PC, .MOD_SET_FLAG); 


cust 


Tho Sym RstPTR FOL 0 THEM $DBG_E 
SYM_DSTPTR = sSYMRSTPTRERSISL_D 
I “fin. RSTPTAERSTSY GLOBAL) 


ont. gE Pere NTOREREAGE” 24 


! Routine found in GST rather than in RST. (This is the case if 


9 
vot-boo 18-Sep-1944 93:95:83 UNcdunthastea cota. shcaecrex.e32ct"* «3% 


zoe Geeune Sees ape tout mag is me pag he a pe: print the 
u n e rela and absolute $s. 

i Note: Now the cosas eit 1 the module RST “polater Aru 

i Program SAT, and print out the module name even if the 

} module is not set. 


BEGIN 

CALL. F AG = 

MOD_RSTPTR = watt} MODRST(. CURRENT PC); 
DBGSSTA_SYMNAME (.SYM_RSTPTR, SYMNAME ) : 
1F MOD. RSTPTR NEQ 07 


VFN —"ODOONOU SE 


pe ceera SYMNAME(.MOD_RSTPTR, MOD ); 
OUT_TRATEBACK ( ;RODNARE .SYMNAME, 0, 0 

RENT_PC = .SYM_DSTPTRCDSTSL VALUE) , 
ne .CURRENT_PC, .MOD_RSTPTRCRSTS$V_MODSET)); 


ELSE 


OUT_TRACEBACK (0, » SURNAME 5 
(“CORRE be ° -" .SYM_DSTPTRIDSTS$L_VALUE)), 
eC URENT "eC): 


errs 


wn OC OOO fw oO 


END 
ELSE 
IF SYM_RSTPTRERSTSB_KIND] EQL RSTSK_DATA 
OUT_TRACEBACK(O, 0, 0, 0, 0, .CURRENT_PC) 


ELSE 
BEGIN 


PADMA 


MEW —OOeanOu 


: Search for the surrounding routine and module entries. 


date FLAG, = TRUE; 

RTN_RSTPT 

MOD “RSIPTR = Sym RST 

wHICE MOD. RSTPTR’NEQ ¢ "bo 


CASE .MOD_RSTPTRCRSTSB_ a feos STSK_TYPE MINIMUM 
STSK_ TYPE _MAXIMUA OF 
SET 
CRSTSK MODULE): 
EXTTLOOP; 


CRSTSK_ROUTINE): 
(ae sis oRTN _RSTPTR EQ. 0 


ENO DOD SI DP PPD PDP DD PDP BF SSSI OP PO OO III EE 


BEGIN 
SYM_LRSTPTR = RIN_RSTPTR = ,MOD_RSTPTR; 
BIR DsTPtR = ,MOD-RSTPTRCRSTSL_BSTPIRI; 
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CINRANGE ,OUTRANGE) : 
SIGNAL (DBGS_RSTERR) ; 


TES; 
MOD_RSTPTR = ,MOD npte Techs T st UPSCOPEPTR); 
IF TMOD_RSTPTR EQC 0 THEN SIGNAL (DBG$_RSTERR); 
END; ! End of WHILE loop 
STPTR = .SYM_RSTPTR 


RTN_R : 
STARTING PC = .SYM_DSTPTRCDSTSL_VALUEJ; 
IF NOT DBGSPC_T0 LINE_L P 


w 


END; 
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1 
18 
14 
1 
i 
19 
352 
2 5 
; 
5 
530 
531 ~CURRENT- PC = (.EXC_TYPE meq FAULT_EXC), 
401 5 ¢ LINE NUMBER, STMT_NOMBER 
40 5 START_PC, END_PC, MOD_RSTPTR) 
40 534 THEN 
404 535 BEG 
405 536 LINE_NUMBER = 0; 
$06 2 4 STAT LNURBER = 0; 
408 539 : 
540 
410 541 ! We always use the MODRST pre from searching module and 
$13 246 } Program Static Address Table for the given current PC. 
a1 544 MOD_RSTPTR = FIND_MODRST(. CURRENT PC); 
414 545 DBGSSTA_SYMNAME(.SYM_RSTPTR, SYMNAME); 
cig 246 if ghee nstere NEQ 0 
41 54 BEGIN 
418 325 DBGSSTA_SYMNAME(.MOD_RSTPTR, MODNAME); 
419 550 OUT_TRATEBACK (.MODNAME, .SYMNAME, 
420 551 LINE _NU o «STMT 
421 228 ~CURRENT_PC = .STARTING PC 
4 é 55 “CURRENT“PC, .MOD_RSTPTALRSTSV_MODSET)); 
? 338 END 
425 ELSE 
426 328 OUT_TRACEBACK (0, .SYMNAME 
427 358 LINE NUMBER, .STMT_NUMBER, 
428 55 ~CURRENT_PC = .STARTING_PC, 
‘ 9 260 ~CURRENT_PC); 
| 1 26¢ END; ! End of Searching for routine and modules. 
@ ‘ rf END; ! End of Checking data symbol rstptr. 
4 
4 
4 
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IF CALLFLAG 
HEN 


BEGIN 
CALL of his = FALSE 
RSTPTRERSTSB KIND] EQL RSTSK_ROUTINE 


BEGIN 
IF (. as pl! -PC GEQU .SYM_RSTPTRERSTSL Stayt 4 7 AND 
=PC LEQU .SYM_ 
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We have output as many traceback Lines as the user requested. Now return. 
RETURN; 


SLs2 


4 

4 

; 

g (CUR RENT RSTPTRLRSTSL_ENDADD 

6 eegin 
44 ? SYM_DSTPTR = site RSTPTRCRSTSL_DSTPIRI; 
<3 ‘ id ae Bin _DSTPTRLDSTS$V_RTNBEG_NO_CALLJ 
4 
ree 7 DOGSPRINT(UPLIT BYTE(ZASCIC 
454 eee above JSB routine called from unknown location')); 
455 7 DBGSNEVL INE; 
$28 5 6 END 
ret At 5 END 
459 590 
460 591 4 END; 
461 238 4 
46 59 END; 
46 0594 
464 8292 
465 238 ! Update CURRENT_PC and CURRENT_FP to the previous frame. Set the 
286 B28 FP to point to next frame stack. 
468 298 EXC TYPE = TRAP_EXC; 
469 00 EORRENT T_FP = .NEXT_FP; 
470 01 CURRENT “PC = .NEXT-FPLSFSL_SAVE_PC); 

o NEXT_FP™= .NEXT_FPCSFSL_SAVE_F Pai 
ND; End of DECR loop through call stack 

thi $e 
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; INFO#250 L1:0367 
; Referenced LOCAL symbol CURRENT FP is probably not initialized 


-TITLE 1 Pee 
-IDENT \V04-000\ 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


2 6; $0 $i 43 20 63 6¢ 4 66 gf 4F a P.AAA: .ASCII \O module name routine name >a 
69 6C 6 s ; 3 ; : es ASCII \ Line rei PC abs PC!/\ 
TITTLE 2 
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mn ££ OOnN— 
wun OONe—— 
"OOO 
Conn FOS rorr 
ooFro nm~*"Tnovc7 
Mn & 
WVIMmo”g 
enue 
NOLMo 
NOT VSS 
SOMO NwMOOOoOUU 


anrnrr 


¢ ie of i : ge é i 9 f 20 . 20 P.AAB: .ASCII \7*---- above condition handler called wi\ ; 
69 p 1 3 : 

6— 6F 69 74 65 83 § gf 0 4 ie, ASCII \th exception !XL\ : 
A f P.AAC: ASCH <1>\:\ : 

3 2 § D 1) A P.AAD: SCI] <9>\e~ee~= 'AS\ : 

¢ i ; ? : : P.AAE: ASCII \2----- above routine called from DEBUG C\ : 
4 6D 68 B F 

64 3 g 6D 4C ef af ASCII \ALL command\ : 

43 41 4B 4& rf 9 C7 P.AAF: .ASCI] <16>\DBGTBK\<92>\TRACEBACK\ ; 
f 6 34 ; 

5 rH; ; 

6 F 6E $ 


E 
ate 
1 ASCII \nown location\ 
Ph DBGSF INAL_HANDL 


EX DBGS$STA 
eEXTRN ppesec C_TO_SYMID 

“EXTRN Soe ScETHSC: DBGSPSEUDO_EXIT 
SEXTRN DBGSRUNFRAME, SATSSTART_ADDR 
SEXTRN DBGSGV_CONTROL 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY Reraiosetece Save R2,R3.R4,R5,R6,R7,R8,- ; 0227. 
5E FEAC CE 9E 0000 MOVAB RE LOCSPD ; 
10 AC 05 0000 TSTL | NUM_LEV is + 0306 | 
7B 13 OO00A BEQL $* : 
04 ac 05 0000C TSTL INITIAL_PC : 0307 
D 1 O00F BNE 3 | 
000281C0 8F 0D 00011 PUSHL #164288 ; | 
000000006 Q 1 FB 00017 CALLS #1, LIBSSIGNAL : 
8 AC D O01g 1$: MOVL FP * POINTER. NEXT ; 031g 
5 4 Ac OD 8 MOVL INTTIAL_PC, CURRENT 3 8 13 | 
10 AE : 2 026 MOVL EXCEPTION_NAME, EXC Tye 3 0314. 
Sa i if 5 nove CALE FLAG SAVED _RUNF RAME ; 0 16. 
eel 4) a cr ten 
iiiddittds 88 0 FB 41 CALLS #0. DBGENEML Ih F 0335 
GE 10 ac D 48 MOVL EVEL (SP) : 1 
000003E8 8F f 1 0004 PL Repyt 6 ; 
a BLEQU§ 2$ 3 
6E 0368 BF 3¢ MOVZWL #1000, (SP) : 
04 AE 1 ce A 2%: EGL #1, DEPTH : 
0327 BRW 36§ : 
4 é 3$: CLRL OR > 0333 
68 14 : PROBER #0, #20, (NEXT_FP) : 
EQL 4 3 
D6 g NCL R 3 


| 


<_o 


Se ee 


Kk 9 
yOe~000 1exgeen18Rs 95:35:88 | Mes UwehASfenscocaue Skcapecrex.e3204" (45 


C 
\ 


0 05 4$ TSTL oR : 
o00z8r28 BF Db poder Bie #167720 + 0336 
000000006 00 1 FB {3 CALL #1, LIBSSIGNAL : - 
50 000000006 09 g 7D 5$: MOVAB DBGSFINAL_HANDL, RO : tree ; 
6 b CMPL  (NEXT_FP); RO : ; 
1 4 , 6$: pare 7$ : | 
OD 000000006 00 1 €1 A 7$ BB #1 BGSGV_CONTROL+1, 8$ : ; 
00028068 8F OD ; PUSHL #164 ; 
90000 006 90 f 9 CALLS #1, LIBSSIGNAL ; | 
14 «BF p oF 8S CMPL ¢ RRENT_PC, #-2147483628 + 0360 : 
2 ‘6 BEQL $ 3 { 
0098 3 9$: BRW 13$ 3 | { 
06 A 03 0 AB 10$: —s‘ TTL EPTH : 
F A BEQL $ : i 
20 AE 06 Ad 80 08 MOVW (CURRENT_FP), REGMASK + 0367) 
iC AE A9 08 MOVAB 20(R9), REGSAVELOC : 0368 
56 04 OOOBA CLAL J : 368 ‘ 
50 04 0008C CLAL I 3; 0370) i 
02 20 AE 30 £1 OOOBE 11$: BBC 1, REGMASK, 12$ 0372) : 
6 06 00C INCL J 3 i 
FS 50 0B F3 000C5 12$: AOBLEQ #11, I, 118 + 0370) 
08 A 1C BE46 DE 000C9 MOVAL @REGSAVEL OCC J] SPVALUE F 0379 
50 07 Ad 0 06 EF O0cF EXTZV #6, #2, @(CURRENT_FP), RO : 0380) 
08 AE C0 0005 ADDL Rd. SPVALUE : 
0 08 ¢O 00009 ADDL2 #8. SPVALUE > 0385, 
5 08 Bg DO 00000 MOVL  a@SPVALUE, SIG_VECTOR : 393, 
36 67 DO 000E1 MOVL  ($1G_VECTOR) ! : 0394 
FC A746 DO O00E4 MOVL -4(STG VECTOR)CJJ, CURRENT_PC ; 0395. i 
oe A bo 0E9 PUSHL  4(SIG_JECTOR) 3 330 i 
00000000" EF 9F O00E PUSHAB P.AAB : 0396 | 
000000006 00 2 €B OF CALLS #2, DBGSPRINT : | i 
00000000' EF 9F OOODF PUSHAB P.AAC : 0399 
000000006 00 1 FB OOOFF CALLS #1, DBGSPRINT 3 
000000006 0 re 1 CALLS a9 DBGSNEWL INE : 0400 
Fe aD 0109 BO O01 MOVW #256, MSG_DESCR : 0401 | 
Fa 48 AE 9€ 0011 MOVAB MSG STRING, MSG_DESCR+4 : 0408 
7E 7C 0011 CLRO = (SP) ; 0403. i 
FAD i 11A PUSHAB MSG _DESCR ; ; 
0 AE 9F 0011 PUSHAB MSGCEN ; | 
4 A? 0D 001 PUSHL  4(SIG_ VECTOR) : 
000000006 00 05 FB 1 CALLS #5, SYSSGE $6 ; 
F4 AD 24 «OA 1 Vd  MSGLEN, MSG_DESCR + 0404 
F4 AD 9F OO1OF PUSHAB MSG DESC > 0405 
00000000" EF 9F 001 PUSHAB P,AAD : 
900000006 FB 001 CALLS a3, DBGSPRINT F 
00000006 FB 0013F CALLS #0, DBGSNEWLINE > 0406 
000000006 146 13%:  MOVAB DBGSPSEUDO_ EXIT, RO > 0414 
; ¢ 14 cAPL RRENT_PC; R : 
53 40 AA 06 1 V 64(SAVED_RUNFRAME), CURRENT_PC ; O47 
00000000" EF 9F 001 PUSHAB : 0418 | 
900000006 0 1 B 001 g CALLS #1, DBGSPRINT ; | 
6 0 FB 1 CALLS #0. DBGSNEWLINE > 0420 
A A DO 0016A MOVL (SAVED _RUNFRAME), SAVED_RUNFRAME : 0401 


beets He MotFiks PT cdlnGaASteascbeaue.skcaecrex.e320%%" «43 


10 AE DO 001 MOVL , EXC_TYPE : 
¢ ny i 148: PUSHL af EXC. : 9098 
ON an PuRMO pumreye : 
ee . 
000000006 90 Fe 90178 CALLS iN bBGSPC_TO_sYMID : 
44 AE ODS 2 CLRL MOONAME + 0433 
= 8 & Bust CURRENT “PE”  0a38 
0090v CF i FB OO1BA CALLS ‘ PIN RST : 
¢ as 0 bdO 0018F VL 0, MOD_RSTPTR : 
5 2¢ Af p ; ve Mob RSTPTR, R2 + 0436. 
44 AE 9F 00199 PUSHAB MODNAME + 0439 
3 DD 0019¢ PUSHL R : 
000000006 00 FB 001 CALLS + DBGSSTA YMNAME ; | 
14 AE 28 «A2 1 00 EF OOTA EXTZV 4 40(R2), MOD_SET_FLAG 3 044 
14 AF DD OO1AC 15$: — PUSHL 40, Sef FLAG + 044 
3 BD AF PUSHL CURRENT=PC : 
— 7C 00181 CLRQ. = =(SP ; 
7E 7¢ BS CLRQ  =(SP) : 
0168 31 0018 BRW 30$ : 
52 28 AE 06 BB 16$: MOVL SYM_RSTPTR, R2 + 0448 
1§ 1 BC BNEG =«'17$ ; 
00000000' i i BE PUSHAB P.AAF : 
00028362 8F DD 0016 PUSHL | 706 : 
000000006 90 03 F ce CALLS @ 1BS$1GNAL : 
4 of A2 D D3 17%:  MOVL eine) » SYM_DSTPTR ; 0449 
4A 1§ Ad € 07 BLBC 21(R2), 19$ + 0450 
5B Q DO 00108 VL #1, CALL_FLAG : 0460 
3 DD 0010 PUSHL cu ARENT PC : 046 
0000v CF Q FB E CALLS + FIND MODRST : 
2c AE 0 p E MOVL +44 D_RSTPTR : 
40 AE OF 001E9 PUSHAB SYRNARE” + 0464 
52 DD OO1EC PUSHL : 
000000006 99 02 F EF CALLS DBGSSTA_SYMNAME ; 
2c (AE OD F MOVL ey RSTPTR, R2 + 0465 
1€ 1 69 BEQL ; 
44 AE OF OO1FB PUSHAB MODNAME + 0468 
DD OO1F PUSHL ; 
000000006 00 FB CALLS 0 GSSTA YANANE : 
7€ 28 = A2 1 EF EXT ZV ; 40(R2) , =(SP) + 0471 
7E 53 03 AG : f SUBL GURREME Pe CURRENT_PC, =(SP) + 0470 
76 ¢ 14 CLRO. 0s =( SP) ; 0469 
019 1 BRW ; 
3 Dp 19 18$: PUSH CURRENT PC : 0477 
7E 53 03 AG ¢ 1 SUBL (SYM_DSTPTR), CURRENT_PC, -(SP) 3 476 
7€ ¢ CLRO 30s =( SP) > 047 
011 ; BRW : 
$ f b 
06 ae | 91 198 CPB (R2), #6 0482 
D 8 PUSHL CURRENT PC + 0484 
ve Fe 0055 att et 
0106 sf 1 BRW 333 ; 


"9 
16-Sep-1984 02:44: VAX-11 Bliss-32 V4.0-742 P 4 
1o-808=} 382 95:45:28 DISKSVMSMASTER: (DEBUG. SACIDBGTBK.B32:1>— RS 
58 01 00 208: MOVL “i, CALL FLAG : 138 
OC AE D4 7 CLRL = RTN_RSTPTR + 049 
2c OA 2 D A VL  R2, MOD_RSTPTR + 049% 
D 21$ TSTL «ORR + 0495 
6B 1 4 BEOQL 4 : 
5 1 16 Ad. BF 0024 CASEB ( ai, #21 + 0497 
C 038 06 4? 22% WORD $-225,- : 
¢ 02¢ 4C 4F 4$-22$.- : 
C 6 ¢ 02¢ 27 $-22$.- : 
¢ ¢ 8 ¢C f $ 7 : 
C 00 C ¢ 0267 $-20$,- : 
02¢ 02¢ O26F ; 7 : 
$ a 3 
$-22$.- : 
$- 7 3 
$-22$.- : 
$ a 3 
$- 7 : 
$-22$.- : 
$- i 3 
$e e* : 
$-22$,- 3 
$-22$,- 3 
:- e™ Py 
0002833A 8F DD 00273 238 PUSHL #1646 : 0519 
000000006 00 1 FB 00279 CALLS #1, LIBSSIGNAL F 
11 11 00280 BRB 25§ ; | 
OC AE OD 6 24$ TSTL RIN_RSTPTR + 0505 | 
Q 1 BNEQ 25$ : 
OC AE D0 00 MOVL 2, RTN_RSTPTR + 0508 
28 «OA 52 D0 00 MOVL  R2, SYM"RSTPTR : 
54 Oc Ad 00 0028F MOVL  12(R2),SYM_DSTPTR : 0509 | 
oe 10 Ae D 93 25$ MOVL  16(R2) MODRSTPTR : O5¢5, 
5 2c AE OO MOVL MOD_RSTPTR, R : 0524. 
AO 1 9C BNEG 21$ ; 
0002833A 8F DD 00298 PUSHL #164666 : | 
000000006 00 1 Fe AG CALLS #1, LIBSSIGNAL : 
4 AB BRB 21$ + 0495) 
OC AE 8 AE 09 AD 26$:  MOVL sve RSTPTR, RIN_RSTPTR : 0528. 
18 AE AG p 8 MOVL (SYM_DSTPTR), STARTING_PC ; 9 9 
C AE 9F 0008 PUSHAB MOD_RSTPTR : 0531 
4 AE 9F OOOBA PUSHAB END~PC : 
C AE 9F 0028 PUSHAB START PC ; 
44 AE OOF «O00C PUSHAB STMT_RUMBER : 
4C AE OOF O02C PUSHAB L INE NUMBER ; 
02 oe Re bt b65e Ehee OEXC_TYPE, #2 
BS bodee Beat | 57S" 
D ce INCL. R ; 
E 3 c 27$:  SUBL3 RO, CURRENT_PC, -(SP) ; 
000000006 0 6 Fe D4 CALLS #6, DBGSPC_TO_CINE_LOOKUP : 
5 0B Les RO, ¢ 3 
38 «=6AE «PC O02DE CLRQ = STAT_NUMBER : 0537 


Sele eS eee he 


16-Sep- 


VOs-000 


a 


5 000000006 


000000006 
7E 2 


0000v 


0000v 


01 04 


; Routine Size: 913 bytes, 


CF 


CF 


Routine Base: 


14-Sep- 
3 DD 4 288: 
we, 
if 8 O05E 
40 AE OF EC 
2c AE DD EF 
0 F rs 
18 A C Ff 
2c 3 d f 
29 «(1 0 
44 AE OF 
52 0D 7 
FB 
He 
1) 9) 8 i8 
44 AE DD 1A 
4C¢ AE DOD 1D 
54 AE ODD 9$: 
5C AE DD 00 0$: 
07 FB 00326 
14 11 00328 
a Bi se 
40 AE OD § 1 
48 AE OD 00 
50 AE DD 00337 363: 
7E 04 OO33A 3358: 
98 £8 if 34%: 
5B D4 00344 
28 AE DO 00346 
14 ag 4 3 
$3 of absss 
g D1 00356 
18 1A 2 
soo we 
14 #1 6 
00000000' F OF 6 
1 FB 00 § 
0 F 
4 B ns 358: 
Oe is D 
6— F 36$: 
4 D 
FCDO 31 OO38E 37%: 


DBGSCODE + 0000 


1986 98:47 


33 VAX-11 Bliss-32 V 


PUSH RRENT PC 

CALL i" FIND_MODRST 

OVL RO, MOD_RSTPTR 
eae sre 

CALLS i “PecSstA AME 
SUBL Anting, pC. =GURRENT PC, RS 

MOVL 

BEQL 

a 

CALLS we eotasS YMNAME 
EXTZV ), =(SP) 
PUSHL ‘oe ENT_P 

et Sar urge 

PUSHL LINE-NUMBER 

PUSH RODNARE 

CALLS A act OUT. TRACEBACK 
PUSHL CURRENT_PC 

PUSHE STMT T_NUMBER 

PUSHL LINE NUMBER 

PUSHL SYMNAME 

SBE? CALL OFLRG. S88 
CLRL  CALL“FLAG. 

MOVL SYM_RSTPTR, RO 

BNEO gggho. ei 

CMPL CURRENT PC, 24(RO) 

CPL CURRENT _ PC, 28(RO) 
OVL 12(RO), SYM_DSTPTR 
TSTB gigyn M_OSTPTR) 

BUSHAB ie 

CALLS #1, DBGSPRINT 

CALLS #0, ete 

MOVL §NEXT_FPT CURRENT 

MOVL 1GCNEXT FP), CURRENT _PC 

MOVL  12(NEXT“FP). NEXT_FP™ 
AOBLSS (SP), DEPTH. 

RET 

BRW 3$ 


742 
DI SKSVMSMASTER (DEBUG. SRCIDBGTEK.B32;1°" (3) 
: 0544 


: 0545 


552 
546 


: 0549 


0 
16-5e 1984 02:44: VAX"11 Bliss-32 V4.0-742 P 16 DB 
1 ~Sep-19 4 } 49:33 DISKSVMSMASTER: CDEBUG. SACJDBGTBK.B32;1>" (4) v4 


481 611 1 ROUTINE OUT_TRACEBACK(MOD_NAM, LAB_NAM, LINE_NUM, STMT_NUM 
48 61¢ REL_PC> ABS_PC): NOVALUE = 
486 614 1 | FUNCTION 
485 615 ' This routine Setyel ty calls FAO and DEBUG's output routine to 
rt] 218 } format and output a Line of traceback information. 
488 618 i INPUTS 
ret 21? MOD_NAM = Address of a Counted ASCII string containing the module name. 
491 oe 1 LAB_NAM = Address of a Counted ASCII string containing the routine name. 
$32 § LINE NUM = Line number matching the PC. 
t32 Oe 2 STMT_NUM = Statement number within the LINE_NUM Line. 
497 06 f REL_PC = Relative PC value from beginning of the routine. 
43 80 4 ABS_PC = The absolute PC value from the call frame. 
501 0631 ' OUTPUTS 
06 ¢ ! NONE 
063 : 
0634 
ne 
063? 
0638 
0639 = 


BUILTIN 
ACTUAL COUNT ' The number of actual parameters 
ACTUALPARAME TER; ! Selects the N-th actual parameter 


LOCAL 
STRING_PTR: CS_POINTER; 


ND 
NULL_STRING = UPLIT BYTE (0); 


nenennes MINIM 2 OO SS OCOOOOSCSCO 


Mark the module if the module is set. 
iF ACTUALCOUNT() GTR 6 
THEN 


BEGIN 
oo Ot PUA PARARE FERC?) 

DBGSPRINT(UPLIT BYTE(ZASCIC ‘#")) 
ELS 


PUP PUDVDVLVLIVLIVDVLVDUDUDVLULUIVST SUIS SISSY 


E 

DBGSPRINT(UPLIT BYTEC(ZASCIC ° *)) 
END 

ELSE 


PRIA AIA AIA NI IAI IRR POPPOPOPPONUNONONO NOUN POPOPID 
wo 
mm 
oO 
te 
rz 2 
es 
So 
1 
== 
Ooo 
nn 
vv 
oo 
he 
zz 
—— 
mn 
Dw 
eee 


. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
7 
. 
7 
° 
” 
° 
. 
o 
. 
° 
7 
° 
. 
° 
. 
° 
. 
° 
. 
e 
. 
. 
. 
° 
7 
° 
° 
° 
. 
° 
° 
° 
. 
° 
7 
o 
. 
° 
. 
a 
. 
° 
. 
° 
o 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
6 
. 
° 
. 
° 
. 
° 
. 
° 
° 
° 
. 
° 
. 
o 
2 
° 
. 
° 
7 
° 
o 
* 
. 
° 
. 
e 
. 
e 
. 
e 
. 
° 
. 
° 
7 
o 
. 
a 
. 
° 
. 
° 
7 
° 
. 
° 


Print the statement number if applicable. 
if ,STAT_NUM NEQ 0 
DBGSPRINT(UPLIT(ZASCIC °.!47L°), .STMT_NUM) 


SN NNN NN NSOOO 
SsaTeoRAN=SsSes 


ty hah sh sh dh Ab db dh th dh bh beh a 


LSE 
DBGSPRINT(UPLIT(ZASCIC ‘!5* ')); 


! Print the absolute PC and then output the print Line. Then return. 


DBGSPRINT (UPL IT (AASCIC "!OXL!T0OXL"), .REL_PC, .ABS_PC); 
hae LINE(); 


10 
1b-Sep-19 4 02:44: VAX-11 Bliss-32 V4.0-742 Page 17 D 
12-38-1382 95:45:28 DISKSVMSMASTER: (DEBUG. SRCIDBGTBK.B32:1> (4) V 
; 3 ah DBGSPRINT(UPLIT BYTE(ZASCIC ' ')); 
: 540 6 
; 4) 4 Print the module name, if we have one. 
‘8 or8 STRING PTA =. MORN TRING_PTR = NULL_STRING 
H = e 
; ie org ie hob Nan eat OTHER ET cae .STRING_PTR); 
: 54 67 
: e¢8 278 Print the routine name, if we have one. 
: 266 es STRING, PTR at 
; 551 681 IF .LAB Edt Othe THEN TRING, PTR = NULL_STRING; 
3 22§ ob¢ IF “STRING. PTRCLO] GTRU 
: 3a 0686 THEN EGIN 
: 555 0685 DBGSPRINT (UPL IT(RASCIC "163AC'), .STRING_PTR); 
; 556 686 DBGSNEWL INE () 
: $57 068 DBGSPRINT (UPLIT (RASCIC "149" ")); 
; 558 688 END 
He BRE se 
: 561 0691 DBGSPRINT(UPLIT(ZASCIC '!32AC"), .STRING_PTR); 
: 308 $69 
3 re] Be38 Print the Line number if one is available. 
; 566 069 if gi INE _NUM NEQ 0 
; 0698 DBGSPRINT(UPLIT(ZASCIC "!5UL"), .LINE_NUM) 
F 0700 ELSE 
; 701 DBGSPRINT(UPLIT(ZASCIC '!5* ")); F 


SAN NN 


PAD DAMMANN 
SRA 

SOOOCCOCOCOOOCOOOCOOOOOOoSoO 

SOOO NEW OC OONOUE wiry 


SSBLE 


END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


pe 


10 
bese -1984 144: VAX-11 Bliss-32 V4.0-742 Pa 18 
12-8 08- 1 3be 05:95:33 DISKSVMSMASTER: DEBUG. SAC IDBGTBK.B32:1> (4) 
© 00100 B.AAH: BYTE | ; 
A 1 P.AAI: ASCII <1>\#\ é 
9 1 110 P.AAJ: .ASCI] <1>\ \ : 
1 112 P.AAK: ASCII <1>\ \ ; 
43 41 ; 1 21 114 PLAAL: .ASCII <6>\!15AC \<0> : 
43 41 6 21 11C P.AAM: ASCII <5>\'63AC\<0><0> : 
9 2A 39 «(34 O21 1 f P.AAN: .ASCII <S5>\'49" \< >> : 
43 41 é 3 1 10C P.AAO: ASCII <5>\'32aC\<0><0> : 
$f 1 046 154 P.AAP: .ASCII <4>\! ge ee > : 
A 35 21 04 15C P.AAQ: .ASCII <4>\!5" \<0><0><0> : 
3 af A 34 21 ‘ 5 144 P.AAR: .ASCII <5>\.!472L\<0><0> 3 
8 0 2A 55 4 14C P.AAS: .ASCII <4>\!'5® \<0><0><0> 3 
00 00 4¢ 58 30 31 1 4C¢ 58 #39 21 9 154 P.AAT: ASCII <9>\!9KL!10xKXL\<0><0> 3 
NULL _STRING= P.AAH 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
003C 00000 OUT_TRACEBACK: 
«WORD Save R2,R3,R4,R5 3; 0611 
55 000000006 00 9€ 0000 MOVAB DBGSNEWLINE, RS ; 
54 900000006 00 9€ 0000 MOVAB DBGSPRINT, R4 : 
53 00000000° EF 3 0019 MOVAB NULL_STRING, R3 : 
06 6¢ 9 0017 CPB (AP) BG > 0655 
05 1¢ aC £9 Soore BLBC B(AP), 1$ + 0658 
01 A oF 00 PUSHAB B AAI : 0660 
03 ‘ 09 1$: PUSHAB B AAJ + 0663 
0S asd OF 09 A 33 PUSHAB P.AAK > 0668 
4 01 F dD 3$ CALLS #1, DBGSPRINT ; 
2 04 A p 0 0 HOVE MOD _NAM, STRING_PTR ; 9673 
52 g 9E 96 MOVAB NULL_STRING, STRING_PTR : 
eo ttmwen ti. hae , ee 
64 02 F f CALLS #2, DBGSPRINT : 
52 08 AC D 4 MOVL AB_NAM, STRING_PTR ; 0680 
03 1 43 BNEG : 0681 
52 “ 3 4 MOV NULL_STRING, STRING_PTR : 
iF 6 71 4A 5$ CPB (STRING _PTRS , #31 : 0682 
oA SP SUB, Rta piainssP™ Awe 
64 0 FB 4 CALLS a3, DBGSPRINT : 
eoow AY sithte siageentN Bets 
64 ‘ Fe CALLS ai. DBGSPRINT : boat 
v ARB Bee fase te 
64 02 F CALLS #2, DBGSPRINT : 
oc ac : 7$ TSTL LINE _.NUM : 0696 
08 BEQL : 


; Routine Size: 


164 bytes, 


64 


64 


64 
rt 


64 
65 


Routine Base: 


Soup 
a Hi 
10 Ac ot 
WON ge 
» HH 
bag 

as fe 


DBGSCODE + 0391 


-Sep-1 
bate gep-1 


Be 98:99:38 


PUSHL 
PUSHAB 


LINE NUM 
if DBGSPRINT 
nie ‘DBGSPRINT 
STAT NUM 

0$ 


STMT_NUM 
PAAR 

a DBGSPRINT 
11§ 


is 
at preetany 


ai. 
#0. SOCSNEUL INE 


VAK-11 Bliss-32 V4.0-74 


2 
DISKSVMSMASTER: (DEBUG. SRC JDBGTBK. 


B3201e" (a) 


0698 


F 10 
GTBK 16-Sep-1984 02:44: VAX-11 Bliss-32 V4.0-742 P 0 
yOe 000 12286871382 95:95:33 DISKSVMSMASTER: (DEBUG. SAC IDBGTBK.832;1" (8 
; 3 r 1 ! ROUTINE FIND_MODRST(VALUE) = 
: 59% 458} i FUNCTION 
; 595 726 «1! This routine gees through the Program Static Address Table and 
3 38 (+ oo test to see if the VALUE is within the module address range 
:; 59 7 § 7% described in Program SAT. If VALUE is within the range then Module 
3 38 4 : : RST is returned, 
: 6 rs 1 i INPUTS 
; 601 730 1! VALUE = The virtual address for which the corresponding module is 
3 one eee to be found. 
3 © 7 ¢ 1; 
3 © 7 1 ! OUTPUTS 
; 605 754 1! Return value is Module RST pointer for the given symbol or 0 
3 eB f 5 : if no Module RST pointer can be found. 
; 608 737 1 
3 sts : BEGIN 
: 611 740 LOCAL 
3 $i§ my SATPTR: REF SATSENTRY; ! Pointer to Program SAT entry 
: 614 74 
3 615 744 ! Search through the Program Static Address Table until an entry is found 
3 61g 745 ! (if any) which covers the specified address. If one is found, return a 
3 el; ms pointer to the corresponding Module RST Entry. 
: 619 748 SATPTR = DBGSSEARCH_BIN_SAT (.SATSSTART_ADDR, .VALUE, FALSE, TRUE); 
; 620 749 IF .SATPTR NEQ 0 
3; 621 750 N 
r} ? ¢ 5}! RETURN .SATPTRCSATSL_RSTPTRI; 
> 626 28 ' No module was found which contains the given virtual address. 
3; 625 754 ! Return zero to indicate this. 
; © $ 755 : 
3 6 736 RETURN 0; 
; 628 75 END; 


0000 00000 FIND_MODRST: 
WORD 


. Save nothing : 
91 DD 2 PUSHL #1 3 
D4 CLRL =(SP) ; 
0 at DD PUSHL VALUE 3 
000000006 0D PUSHL SATSSTART_ADDR : 
000000006 00 r f CALLS #4, DBGSSEARCH_BIN_SAT ; 
p 16 TSTL AfPTR > 0749 
1 BEQL ; 5 
50 oc A B 1A MOVL 12(SATPTR), RO 3 0751 
50 4 if 1$ CERL RO : 07 
21 RET ; 8788 


; Routine Size: 34 bytes, Routine Base: DBGSCODE + 0435 


| 
! 


co 


629 0758 0 END ELUDOM 
PSECT SUMMARY 
Name Bytes 
DBGSPLIT 352 NOVEC,NOWRT, 
DBGSCODE 1111 NOVEC,NOWRT, 


Library Statistics 


en oe om on ae Symbo ls 


File Total 
-$255$DUA28:(SYSLIBIL 16.132; 1 18619 
-$ 55$0UA28: (DEBUG.OBJ)ST FautbEr 43231 32 
“ SSSDUAGB: (DEBUG. 0B) )DBGL 1B. 1.32:1 154 
“$255$0UA28 : (DEBUG. OBJ JOSTRECRDS.L32;1 ie 

$255$DUA28 : (DEBUG. 0B) JDBGMSG.L32;1 386 
$332 Hat DEBUG .0BJ DBSCEN: tb 333] 150 


Information: 1 


Loaded 


: 
103 
? 
2 


1S deo-t94e M3:73:88 «— UNcbuntuadtenscbeauc. “Shc 0BGTex. as2.i%* <8) 


-EXTRN LIBSSIGNAL 


Attributes 
EXE, SHR, LCL, REL, CON, Stra hth t 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 


soecece Pages Processing 
“Percent Mapped Time 
0 1009 00: + +5 ? 
9 00:01.9 
24 31 69: +e 4 
1 $$ 0:00.3 
1 00:00.3 


Warnings: 0 
0 


Errors: 


Size: 
Run Time 
Slesced. Time 


Lines/CPU Rin: 
——— 


Tou? sed: 
— ation ¢ 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:D0BGTBK/0BJ=0BJ$:DBGTBK MSRC$:DBGTBK/UPDATE=(ENH$: DBGTBK) 


1111 ¢ et" 352 data bytes 


a 
1 


343 pages 


omplete 


+4 


L EQUIPMENT CORPORATION 
ENTIAL -AND PROPRIETARY 


DIGIT 
CONFI 


IG 
ON 


0096 Vax7vms v4-o D 


